Imports Microsoft.VisualBasic

Public Class Biblioteca_Tecnica

    Private _id As Integer
    Private _nombre As String
    Private _peso As String
    Private _descripcion As String
    Private _tipo As String
    Private _superficie As String

    Public Sub New(ByVal nombre As String, ByVal peso As String, ByVal descripcion As String, ByVal tipo As String, ByVal superficie As String, Optional ByVal id As Integer = -1)

        Me._nombre = nombre
        Me._peso = peso
        Me._descripcion = descripcion
        Me._tipo = tipo
        Me._superficie = superficie
        Me._id = id

    End Sub

    Public Property Id() As Integer
        Get
            Return _id
        End Get
        Set(ByVal value As Integer)
            _id = value
        End Set
    End Property

    Public Property Nombre() As String
        Get
            Return _nombre
        End Get
        Set(ByVal value As String)
            _nombre = value
        End Set
    End Property

    Public Property Peso() As String
        Get
            Return _peso
        End Get
        Set(ByVal value As String)
            _peso = value
        End Set
    End Property

    Public Property Descripcion() As String
        Get
            Return _descripcion
        End Get
        Set(ByVal value As String)
            _descripcion = value
        End Set
    End Property

    Public Property Tipo() As String
        Get
            Return _tipo
        End Get
        Set(ByVal value As String)
            _tipo = value
        End Set
    End Property

    Public Property Superfficie() As String
        Get
            Return _superficie
        End Get
        Set(ByVal value As String)
            _superficie = value
        End Set
    End Property


End Class
